home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
STARTUP.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
2KB
|
42 lines
10 REM MENU FOR N.A. PROGRAMS
20 D$ = CHR$(4)
30 HOME
40 HTAB 12: INVERSE : PRINT "DU PONT PRESENTS"
45 NORMAL
50 PRINT
60 HTAB 8: INVERSE : PRINT "NEWTON'S APPLE FREEWARE"
65 NORMAL : PRINT : PRINT
68 PRINT "***************************************"
70 PRINT : PRINT
80 PRINT " A) MIRRORS"
90 PRINT : PRINT " B) INERTIA"
93 PRINT : PRINT " C) PROBABILITY"
95 PRINT : PRINT " D) NEWTON'S KNOWLEDGE"
100 PRINT : PRINT " X) EXIT THIS PROGRAM"
105 PRINT : PRINT "***************************************"
108 VTAB 22
110 PRINT : PRINT "Enter the letter of your choice: _"; CHR$(8);: GET CH$
120 IF CH$ = "A" OR CH$ = "a" THEN PRINT D$;"RUN MIRRORS"
130 IF CH$ = "B" OR CH$ = "b" THEN PRINT D$;"RUN PHYSICS"
140 IF CH$ = "C" OR CH$ = "c" THEN PRINT D$;"RUN PROBABILITY"
150 IF CH$ = "D" OR CH$ = "d" THEN PRINT D$;"RUN KNOWLEDGE"
160 IF CH$ = "X" OR CH$ = "x" THEN GOSUB 200
170 GOTO 108
200 HOME
210 HTAB 8: PRINT "Newton's Apple Freeware"
215 HTAB 9: PRINT "is made possible by"
220 PRINT : HTAB 18: PRINT "by"
230 PRINT : PRINT : HTAB 10: PRINT "a grant from Du Pont"
240 FOR I = 1 TO 1500: NEXT I
245 PRINT : PRINT : PRINT
250 PRINT "Created and distributed"
270 PRINT "by"
290 PRINT "TelEd, Inc."
300 FOR I = 1 TO 1500: NEXT I
305 PRINT : PRINT
310 PRINT "Written by Bob Houghton"
320 FOR I = 1 TO 1500: NEXT I
325 PRINT
330 PRINT "NEWTON'S APPLE is a production of"
350 PRINT "KTCA-TV in Minneapolis/St. Paul"
360 END